﻿Public Class LoginForm1
    Public ID As Integer



    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If UsuariosTableAdapter.UsuariosIdDEnombre(UsernameTextBox.Text) <> 0 Then
            ID = UsuariosTableAdapter.UsuariosIdDEnombre(UsernameTextBox.Text)
        Else
            ID = 0
        End If

        If ID <> 0 Then
            If UsuariosTableAdapter.UsuariosNombreDEclave(PasswordTextBox.Text) = UsernameTextBox.Text Then
                Principal.Show()
                Me.Close()
            Else
                MsgBox("Combinacion de Usuario/Contraseña incorrecta")
            End If
        Else
            MsgBox("Combinacion de Usuario/Contraseña incorrecta")
        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'Censo_PoblacionalDataSet.Usuarios' Puede moverla o quitarla según sea necesario.
        'Me.UsuariosTableAdapter.Fill(Me.Censo_PoblacionalDataSet.Usuarios)

    End Sub
End Class
